0 PRINT"[147]":POKE53274,.:SYS65418
1 IFA=.THENPOKE55,0:POKE56,63:CLR:A=1
5 IFA=1THENA=2:LOAD"ROUTINES V4",8,1
6 IFA=2THENA=3:LOAD"BASIC PLAYER.O",8,1
7 IFA=3THENA=4:LOAD"RASTER STUFF.O",8,1
8 IFA=4THENA=5:LOAD"BLOAD.O",8,1
10 FR$="":LA$="":OV$=""
11 NS=7:DIM NA$(NS),FI$(NS)
12 SA=780:SX=781:SY=782
15 SU=51206:SD=51209
16 POKE1020,10:POKE1021,16:POKE1022,7:POKE1023,32
20 GOSUB1000
30 GOSUB1500
40 GOSUB2000
50 GOSUB3000
60 GOSUB100
64 PRINT"[193]RE YOU SURE YOU WANT TO QUIT? ([217]/[206])":POKE198,.
66 A=PEEK(203):IFA<>25ANDA<>39THEN66
68 IFA=39THENGOSUB2020:GOTO50
70 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
72 IFER<>63THENPRINT"[147]":END
74 LOAD"HELLO CONNECT",8
100 PRINTLA$""
110 FORA=1TO5:PRINT"                                    "
120 NEXT:PRINT"[145][145][145][145][145][145]"
130 RETURN
1000 POKE53280,14:POKE53281,1
1010 PRINT"[147]";
1012 FORA=1TO5:
1013 PRINT"[154]                                        ";
1014 NEXT
1015 PRINT"[154][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
1020 FORA=.TO14:PRINT"[154][221]                                      [221]";:NEXT
1030 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][157][148][192]"
1032 FORA=1TO2:
1033 PRINT"[154]                                        ";
1034 NEXT
1035 PRINT"                                       [157][148] "
1040 FORA=217TO242:POKEA,PEEK(A)OR128:NEXT
1050 PRINT"[149][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
1060 PRINT"[221][204][207][193][196][211][212][193][210] [208]RESENTS:[221] "
1070 PRINT"[149][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] "
1080 PRINT"                    "
1090 PRINT"[144][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
1100 FORA=1TO5
1110 PRINT"[144][221]                        [221] "
1120 NEXT
1130 PRINT"[144][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] "
1135 PRINT"                          "
1140 PRINT"[145][145][145][145][145][145]  [194][193][195][200]  [202][213][203][197][194][207][216]"
1150 PRINT"  [163][163][163][163][163][163][163][163][163][163][163][163][163]"
1160 PRINT"   [194]Y [196]AVE [205]ARQUIS"
1170 PRINT"                    "
1180 PRINT"[150][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
1190 PRINT"[221]        [195]OPYRIGHT 1987        [221] "
1191 PRINT"[150][221]                              [221] "
1192 PRINT"[150][221]        [211]OFTDISK, [201]NC.        [221] "
1200 PRINT"[150][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] "
1210 PRINT"                                "
1220 FORA=1TONS:READ NA$(A),FI$(A):NEXT
1230 PRINT"[149]  [208]RESS [211][208][193][195][197] TO CONTINUE. [154]":POKE198,.
1240 IFPEEK(203)<>60THEN1240
1250 RETURN
1500 PRINT"[149][221]                  [221]"
1510 PRINT"[221]   [194][193][195][200]  [202][213][203][197][194][207][216]  [221] "
1520 PRINT"[149][221]   [163][163][163][163][163][163][163][163][163][163][163][163][163]  [221] "
1530 PRINT"[154]         [149][221] [194]Y: [196]AVE [205]ARQUIS [221] [154]         "
1535 MM=1263:POKEMM,160:POKE54272+MM,14
1540 PRINT"[154]         [149][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] [154]         "
1545 MM=MM+40:POKEMM,160:POKE54272+MM,14
1550 PRINT"[154]                              [154]       "
1555 MM=MM+40:POKEMM,160:POKE54272+MM,14
1560 PRINT"[154]  [194][193][195][200] [202][213][203][197][194][207][216] PLAYER BY [205]IKE [205]AYNARD  "
1565 MM=MM+40:POKEMM,160:POKE54272+MM,14
1570 PRINT"[154] [146][129][146][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
1575 MM=MM+40:POKEMM,160
1580 FORA=1TO7
1590 PRINT"[154] [129][146][221]                                    [221]"
1595 MM=MM+40:POKEMM,160:POKE54272+MM,6
1597 IFA=4THENPRINT"[145][144]--->"TAB(34)"<---"
1600 NEXT
1610 PRINT"[154] [129][146][171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
1615 MM=MM+40:POKEMM,160:POKE54272+MM,6
1620 FORA=1TO5
1630 PRINT"[154] [129][146][221]                                    [221]"
1635 MM=MM+40:POKEMM,160:POKE54272+MM,6
1640 NEXT
1650 PRINT"[154] [146][129][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
1655 MM=MM+40:POKEMM,160:POKE54272+MM,6
1660 PRINT"[154]                                       "
1665 MM=MM+40:POKEMM,160:POKE54272+MM,6
1670 FORA=217TO242:POKEA,PEEK(A)OR128:NEXT
1680 RETURN
2000 PRINTFR$;
2010 FORA=1TO7:PRINTOV$"[156]"NA$(A):NEXT
2015 SE=4
2016 LS$=""
2020 GOSUB100:PRINTLA$"[213]SE THE [195][210][211][210] KEYS TO SCROLL THE"
2025 PRINT"MUSIC UP AND DOWN."
2030 PRINT"[208]RESS [[210][197][212][213][210][206]] TO HEAR THE MUSIC    "
2040 PRINT"THAT THE ARROWS POINT TO."
2050 PRINT"[198]1 - [208]LAY ALL ............ [198]7 - [209]UIT"
2060 RETURN
3000 POKE198,.:AB=.:PA=.
3005 B=PEEK(653):A=PEEK(203):IFA<>7ANDA<>2ANDA<>4ANDA<>3ANDA<>1THEN3000
3010 IF((B=.)AND(A=2))OR((B)AND(A=7))THEN GOSUB3100:GOTO3000
3020 IF((B=.)AND(A=7))OR((B)AND(A=2))THEN GOSUB3200:GOTO3000
3030 IF(A=1)THEN4000
3040 IF(A=4)THEN4100
3050 IF(A=3)THEN RETURN
3060 GOTO3000
3100 SE=SE-1:IFSE=.THENSE=NS
3110 TP=SE-3:IFTP<1THENTP=NS+TP
3120 SYSSD:POKE648,216:SYSSD:POKE648,4:PRINTFR$OV$"[156]"NA$(TP)
3130 RETURN
3200 SE=SE+1:IFSE=NS+1THENSE=1
3210 BO=SE+3:IFBO>NSTHENBO=BO-NS
3220 SYSSU:POKE648,216:SYSSU:POKE648,4:PRINTLA$OV$"[156]"NA$(BO)
3230 RETURN
4000 PL=SE
4010 GOSUB6000
4040 GOTO3000
4097 :
4098 :
4100 MM=SE:PA=-1:FORZZ=SETONS
4110 PL=ZZ
4120 GOSUB6000
4150 GOSUB3200
4155 IF(AB)THENGOSUB2020:GOTO3000
4160 NEXT:IF(MM=1)OR(AB)THENGOSUB2020:GOTO3000
4170 FORZZ=1TOMM-1
4180 PL=ZZ
4190 GOSUB6000
4210 GOSUB6500
4220 GOSUB3200
4225 IF(AB)THENGOSUB2020:GOTO3000
4230 NEXT:GOSUB2020:GOTO3000
6000 OK=1:HE=.:IFLS$=FI$(PL)THEN6540
6001 LS$=FI$(PL)
6003 GOSUB100:LI$="[204]OADING "+NA$(PL):LI=LEN(LI$):TA=20-LI/2
6005 PRINT""TAB(TA)LI$
6010 SYS828,40960,"M."+FI$(PL):SYS828,53096,"W."+FI$(PL)
6500 AD=1:OPEN3,8,3,"C."+FI$(PL):FORA=1TO5:CR$(A)="":NEXT
6510 FORI=.TO1:GET#3,A$:I=ST:IFA$=CHR$(13)THENAD=AD+1:GOTO6530
6520 CR$(AD)=CR$(AD)+A$
6530 NEXT:CLOSE3
6534 REM **** DELETE LINE 6535!! ****
6535 IFSE=4THENCR$(1)=LEFT$(CR$(1),LEN(CR$(1))-4)
6540 IF(OK)THENSYS52222,40960:OK=.
6550 POKE198,.:GOSUB100:PRINT"";:FORA=1TO5:PRINTCR$(A):NEXT
6553 PRINT"";:FORA=1TO5:PRINT"[154] [146][150][221]":NEXT
6555 PRINT"[154]          [208]RESS "CHR$(34)"[200]"CHR$(34)" FOR HELP.          "
6560 KE=PEEK(203):IF(KEY=29)OR(KEY=60)OR(KEY=10)OR(KEY=62)THEN6562
6561 IFPEEK(2)<>255THEN6560
6562 IF(KEY=60)AND(HE)THENHE=.:GOTO6550
6563 IF(KEY=10)AND(PA)THENAB=-1:GOTO6570
6564 IF(KEY=29)AND(NOT(HE))THENGOSUB7500:GOTO6560
6565 IF(KEY=60)OR(KEY=29)OR(KEY=10)THEN6560
6570 GOSUB100
6572 SYS52225
6575 PRINT"[154]  [194][193][195][200]  [202][213][203][197][194][207][216] PLAYER BY [205]IKE [205]AYNARD "
6580 IF(NOT(PA))THENGOSUB100:GOSUB2020
6590 RETURN
7500 PRINT"[154]  [194][193][195][200]  [202][213][203][197][194][207][216] PLAYER BY [205]IKE [205]AYNARD "
7510 GOSUB100:PRINT" [208]RESS "CHR$(34)"[209]"CHR$(34)" TO QUIT CURRENT MUSIC."
7520 IFNOT(PA)THENPRINT:GOTO7540
7530 PRINT" [208]RESS "CHR$(34)"[193]"CHR$(34)" TO ABORT PLAY ALL."
7540 PRINT" [208]RESS [211][208][193][195][197] TO RE-DISPLAY CREDITS."
7550 HE=-1:RETURN
10000 REM NAME OF SONG (MENU),NAME OF             PERSON,FILENAME
10001 DATA "[199]AVOTTE [201]N [194] [205]INOR"                    ,GAVOTTE.BMINOR
10002 DATA "[211]ARABANDE, [205]INUET & [212]RIO"              ,SARABANDE
10003 DATA "[202]ESU, [202]OY [207]F [205]ANS [196]ESIRING"            ,JESU
10004 DATA "[198]UGUE [201]N [195] [205]AJOR"                      ,FUGUE.C.MAJOR
10005 DATA "[193]IR [207]N [212]HE [199] [211]TRING"                   ,AIR.G.STRING
10006 DATA "[194]ADINERIE"                              ,BADINERIE
10007 DATA "[208]ASSEPIED"                             ,PASSEPIED